home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlEditSetModify.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  991 b   |  37 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiEdit.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $myedit, $ret, $Status, $msg, $current, $Btn_Set, $i_bool = 0
  7.  
  8. GUICreate("Edit Set Modify", 392, 254)
  9.  
  10. $myedit = GUICtrlCreateEdit("First line" & @CRLF, 140, 32, 121, 97, $ES_AUTOVSCROLL + $WS_VSCROLL)
  11. $Btn_Set = GUICtrlCreateButton("Set", 150, 140, 90, 30)
  12.  
  13. $Status = GUICtrlCreateLabel("Un-Modified", 0, 234, 392, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  14.  
  15. GUISetState()
  16.  
  17. ; Run the GUI until the dialog is closed
  18. While 1
  19.    $msg = GUIGetMsg()
  20.    $ret = _GUICtrlEditGetModify ($myedit)
  21.    If ($ret <> $current) Then
  22.       If ($ret == 0) Then
  23.          GUICtrlSetData($Status, "Un-Modified")
  24.       Else
  25.          GUICtrlSetData($Status, "Modified")
  26.       EndIf
  27.       $current = $ret
  28.    EndIf
  29.    Select
  30.       Case $msg = $GUI_EVENT_CLOSE
  31.          ExitLoop
  32.       Case $msg = $Btn_Set
  33.          $i_bool = Not $i_bool
  34.          _GUICtrlEditSetModify ($myedit, $i_bool)
  35.    EndSelect
  36. WEnd
  37.